# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# File Name          : _paper_analysis_labels.R
# Programmer Name    : Luis Campos
#                     luiscampos@g.harvard.edu
#
# Purpose            : This file contains information of experiments to be 
#						analyzed including treatment, treatment levels, 
#						outcome and stratification variable
#
# Input              : None
# Output             : None
# Usage              : 
# 
# References         : None
#
#
# Platform           : R
# Version            : v3.3.0
# Date               : 
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Replication Information:
#   We do expect differences when running this code on different systems 
#   (and with different seeds), but the differences all tend to be quite 
#   small and the general trends remain. If you would like to replicate 
#   the exact numbers and figures used in the article, in the readme you 
#   will find the session info. Please install and load all package 
#   versions (including the R version) to ensure the exact replication. 
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# These matrices give labels for column names of experiments to be 
# 	analyzed, they are in the following order
#	1. Survey Weight Variable
# 	2. Treatment Variable
# 	3. First Treatment Level
# 	4. Second Treatment Level
# 	5. Outcome Variable
# 	6. Stratifying Variable
# 	7. Stratifying Level
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #


TMT_Virginia = rbind(
c('weight', 'video_type_DR', 'Dem', 'Rep', 'videoagain_pre','pid3lean', 'Democrat'),
c('weight', 'video_type_DR', 'Dem', 'Rep', 'videoagain_pre','pid3lean', 'Republican'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'videoagain_pre','pid3lean', 'Democrat'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'videoagain_pre','pid3lean', 'Republican'),
c('weight', 'video_type_DR', 'Dem', 'Rep', 'skipped','pid3lean', 'Democrat'),
c('weight', 'video_type_DR', 'Dem', 'Rep', 'skipped','pid3lean', 'Republican'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'skipped','pid3lean', 'Democrat'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'skipped','pid3lean', 'Republican'),
c('weight', 'video_type_DR', 'Dem', 'Rep', 'AGT309_pre','pid3lean', 'Democrat'),
c('weight', 'video_type_DR', 'Dem', 'Rep', 'AGT309_pre','pid3lean', 'Republican'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'AGT309_pre','pid3lean', 'Democrat'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'AGT309_pre','pid3lean', 'Republican'),
c('weight', 'video_type_DR', 'Dem', 'Rep', 'AGT310_pre','pid3lean', 'Democrat'),
c('weight', 'video_type_DR', 'Dem', 'Rep', 'AGT310_pre','pid3lean', 'Republican'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'AGT310_pre','pid3lean', 'Democrat'),
c('weight', 'video_type_PN', 'Neg', 'Pos', 'AGT310_pre','pid3lean', 'Republican')
)

# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'video_time','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'video_time','pid3lean', 'Republican'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'video_time','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'video_time','pid3lean', 'Republican'),
# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'videoagain_pre','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'videoagain_pre','pid3lean', 'Republican'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'videoagain_pre','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'videoagain_pre','pid3lean', 'Republican'),
# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'skipped','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'skipped','pid3lean', 'Republican'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'skipped','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'skipped','pid3lean', 'Republican'),
# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'skip30','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_CM', 'C', 'M', 'skip30','pid3lean', 'Republican'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'skip30','pid3lean', 'Democrat'),
# c('weight', 'videos_treat_pre_4_PN', 'Neg', 'Pos', 'skip30','pid3lean', 'Republican')




TMT_CCES12 = rbind(
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_a','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_a','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_b','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_b','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_c','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_c','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_d','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_d','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_e','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_e','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_f','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_f','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_g','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_g','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_h','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_h','pid3lean', 'Republican'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_i','pid3lean', 'Democrat'),
c('V102', 'AGT303_treatt', 'Democrat', 'Republican', 'AGT303alt_i','pid3lean', 'Republican'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'AGT308_10_time_ind','pid3lean', 'Democrat'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'AGT308_10_time_ind','pid3lean', 'Republican'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'AGT309','pid3lean', 'Democrat'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'AGT309','pid3lean', 'Republican'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'AGT310','pid3lean', 'Democrat'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'AGT310','pid3lean', 'Republican'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'videoagain','pid3lean', 'Democrat'),
c('V102', 'videos_treat_np', 'Negative', 'Positive', 'videoagain','pid3lean', 'Republican'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'AGT308_10_time_ind','pid3lean', 'Democrat'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'AGT308_10_time_ind','pid3lean', 'Republican'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'AGT309','pid3lean', 'Democrat'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'AGT309','pid3lean', 'Republican'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'AGT310','pid3lean', 'Democrat'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'AGT310','pid3lean', 'Republican'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'videoagain','pid3lean', 'Democrat'),
c('V102', 'videos_treat_or', 'Obama', 'Romney', 'videoagain','pid3lean', 'Republican'),
# c('V102', 'AGT316_treat_OR', 'Obama', 'Romney', 'AGT316','pid3lean', 'Democrat'),
# c('V102', 'AGT316_treat_OR', 'Obama', 'Romney', 'AGT316','pid3lean', 'Republican'),
c('V102', 'AGT327_treat', 'Republicans', 'Democrats', 'AGT327','pid3lean', 'Democrat'),
c('V102', 'AGT327_treat', 'Republicans', 'Democrats', 'AGT327','pid3lean', 'Republican')
)




TMT_YouGov = rbind(
c('weight', 'transgress', 'Dem', 'Rep', 'fairzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Dem', 'Rep', 'fairzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Dem', 'Rep', 'biasedzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Dem', 'Rep', 'biasedzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Dem', 'Rep', 'importantzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Dem', 'Rep', 'importantzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Dem', 'Rep', 'creditzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Dem', 'Rep', 'creditzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Dem', 'Rep', 'typicalzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Dem', 'Rep', 'typicalzero','pid3lean', 'Republican')
)


# NEW
TMT_CCES10_EIT = rbind(
c('V102', 'image_EIT404', 'Democratic_Donkey', 'Republican_Elephant', 'EIT405','pid3lean', 'Democrat'),
c('V102', 'image_EIT404', 'Democratic_Donkey', 'Republican_Elephant', 'EIT405','pid3lean', 'Republican'),
c('V102', 'image_EIT442', 'Democratic_Report', 'Republican_Report', 'totalgrid','pid3lean', 'Democrat'),
c('V102', 'image_EIT442', 'Democratic_Report', 'Republican_Report', 'totalgrid','pid3lean', 'Republican')
)




TMT_CCES10_UCB = rbind(
c('V102', 'treat_EIT404', 'Republican Elephant', 'Control Treatment', 'EIT405','CC421a', 'Democrat'),
c('V102', 'treat_EIT404', 'Republican Elephant', 'Control Treatment', 'EIT405','CC421a', 'Republican')
)




TMT_UCB_Follow = rbind(
c('weight', 'transgress', 'Republican report', 'Democratic report', 'fairzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'fairzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'biasedzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'biasedzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'importantzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'importantzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'creditzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'creditzero','pid3lean', 'Republican'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'typicalzero','pid3lean', 'Democrat'),
c('weight', 'transgress', 'Republican report', 'Democratic report', 'typicalzero','pid3lean', 'Republican')
)





TMT_2014_CCES_matched= rbind(
c('weight', 'cand1gender', 'Male', 'Female', 'JAH373_a','pid3lean', 'Democrat'),
c('weight', 'cand1gender', 'Male', 'Female', 'JAH373_a','pid3lean', 'Republican'),
c('weight', 'cand2gender', 'Male', 'Female', 'JAH374_a','pid3lean', 'Democrat'),
c('weight', 'cand2gender', 'Male', 'Female', 'JAH374_a','pid3lean', 'Republican'),
c('weight', 'cand3gender', 'Male', 'Female', 'JAH375_a','pid3lean', 'Democrat'),
c('weight', 'cand3gender', 'Male', 'Female', 'JAH375_a','pid3lean', 'Republican'),
c('weight', 'cand4gender', 'Male', 'Female', 'JAH376_a','pid3lean', 'Democrat'),
c('weight', 'cand4gender', 'Male', 'Female', 'JAH376_a','pid3lean', 'Republican'),
c('weight', 'Bush_Treat', 'Bush', 'Not Bush', 'AGT_Bush','pid3lean', 'Democrat'),
c('weight', 'Bush_Treat', 'Bush', 'Not Bush', 'AGT_Bush','pid3lean', 'Republican'),
c('weight', 'Shame_treat', 'Dem image', 'Rep image', 'AGT_Shame','pid3lean', 'Democrat'),
c('weight', 'Shame_treat', 'Dem image', 'Rep image', 'AGT_Shame','pid3lean', 'Republican'),
c('weight', 'Obama_Treat', 'Obama sketch', 'general sketch', 'AGT_Obama','pid3lean', 'Democrat'),
c('weight', 'Obama_Treat', 'Obama sketch', 'general sketch', 'AGT_Obama','pid3lean', 'Republican')
)
